(defun pow(x n )
  (do ((shu x (* shu x ))
       (zi n (- zi 1)))
      ((= zi 1 ) shu )))
(defun Big-mod()
  (format t "Input X :>>")
  (let ((x (read))
	(n (read))
	(m (read)))
    (mod (pow x n ) m)))